

** Plots distribution of shock exposure

use "$datadir\ewallet\maindata.dta", clear
	keep if time_id == 35
	hist invshare_sd if $filters, bin(100) xtitle("Exposure") lcolor(black) lwidth(thin ) ylab(,nogrid) fcolor(none) graphregion(color(white))
	graph export "$outputdir_fig\Figure_H_6.pdf",  as(pdf) replace
	